<!-- ҳ09-10-->
<table width="95%" bgcolor=#999999 cellspacing="1"  cellpadding="5" align=center>
<tr bgcolor=#cccccc><td colspan=2><center><b>ҳ09-10</td></tr>
<%
'set rs_1 = server.CreateObject ("adodb.recordset")
set rs_2 = server.CreateObject ("adodb.recordset")
sql_2 = "select * from  class   order by classid desc"
rs_2.Open sql_2,conn,1,1
do while not rs_2.Eof

n=1
set rs_1 = server.CreateObject ("adodb.recordset")
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("..\js\class"&rs_2("classid")&".js"),true)
str="document.write('<table width=92% border=0 cellspacing=0 cellpadding=0>" 

sql_1 = "select top "&rs("classnum")&" id,classid,title,tit,fpath,fname,ifshow,addtime from article where classid="&rs_2("classid")&" and ifshow=1 and ifgood=1 order by id desc"
rs_1.Open sql_1,conn,1,1
if rs_1.eof then
str=str & "</table>')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%' >"&rs_2("classname")&"</td><td><font color=red>ʱû£</font></td></tr>"
else
do while not rs_1.EOF 
temptime =month(rs_1("addtime")) & "-" & day(rs_1("addtime")) 
call titlen(classlen)
if rs("classtime")=1 then
str = str & "<tr><td width=25><img src=img/222.gif width=9 height=7></td><td height=23><a  href=./"& rs_1("fpath")& "/"& rs_1("fname")& " class=a target=_blank title="&rs_1("tit")&">"&rs_1("title")&"</a></td><td width=45 align=right class=a><font color=666666>("& temptime & ")</font></td></tr><tr><td></td><td background=img/027.gif colspan=2><img src=img/027.gif width=3 height=1></td></tr>"
else
str = str & "<tr><td width=25><img src=img/222.gif width=9 height=7></td><td height=23><a  href=./"& rs_1("fpath")& "/"& rs_1("fname")& " class=a target=_blank title="&rs_1("tit")&">"&rs_1("title")&"</a></td><td width=45 align=right class=a><font color=666666>"& temptime & "</font></td></tr><tr><td></td><td background=img/027.gif colspan=2><img src=img/027.gif width=3 height=1></td></tr>"
end if
rs_1.movenext
n=n+1
loop 
str=str & "</table>')"
response.write "<tr bgcolor=#eeeeee><td align=right width='30%'>"&rs_2("classname")&"</td><td><font color=blue>ɸ</font></td></tr>"
end if
rs_1.close
set rs_1=nothing
fd.write str
fd.close
rs_2.MoveNext 
Loop
rs_2.Close
set rs1=nothing
set rs2=nothing
%>
</table>
<br><br>